home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMFS2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  577b  |  28 lines
  1. Program DemoFastTwo;
  2. {DEMFS2}
  3.  
  4. USES DOS,CRT,
  5.      totSYS, totINPUT, totFAST;
  6.  
  7. var 
  8.   WasOn: boolean;
  9.   Dep : byte;
  10. begin
  11.    Monitor^.SetCondensed;
  12.    Dep := Monitor^.Depth;
  13.    Mouse.Show;
  14.    Mouse.Confine(1,1,80,Dep);    {tell mouse how far it can go}
  15.    ShadowTot^.SetShadowSize(2,2);
  16.    with Screen do
  17.    begin
  18.       Clear(31,' ');
  19.       ShadFillBox(2,2,40,Dep-10,65,2);
  20.       ShadFillBox(35,20,75,dep-3,112,1);
  21.       Writecenter(Dep,31,'Press any key to exit');
  22.       GotoXY(1,dep);
  23.    end;
  24.    Key.GetInput;
  25.    Mouse.Hide;
  26.    Monitor^.Set25;
  27. end.
  28.